home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SHELLS / SZ2 / ADEMO9.VIR < prev    next >
Text File  |  1992-08-31  |  866b  |  24 lines
  1.    {===================================================================
  2.  
  3.    Activate BUFFERS unit for heap memory management
  4.  
  5.    ===================================================================}
  6. procedure TGenericApp.PreInit ;
  7. begin
  8.    ReserveForData ( 32 * ( 1024 div 16 ) ) ;
  9.    InitBuffers ;
  10.    EDITORS.EditorDialog      := EditorDialog ;                { *.INC }
  11. end ;
  12.    {===================================================================
  13.    ===================================================================}
  14. procedure TGenericApp.PostInit ;
  15. begin
  16.    LoadDesktopFrom ( Names.DSK ) ;
  17. end ;
  18.    {===================================================================
  19.    ===================================================================}
  20. procedure TGenericApp.PreDone ;
  21. begin
  22.    SaveDesktopTo ( Names.DSK , 'Demo Desktop File' ) ;
  23. end ;
  24.